home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00479_Field_479.txt < prev    next >
Text File  |  1994-06-14  |  1KB  |  36 lines
  1. MECH ,  79
  2. --=================================================================  
  3. on mTestSuction me
  4.   if  the locV of sprite mySprite >= vacArea then
  5.     -- at bottom of stage, suck right to vacumm Chute
  6.     if inSuction = FALSE then 
  7.       -- this is the first time in vac field so we do a few special things
  8.       set inSuction = TRUE
  9.       put the locV of sprite mySprite into vert
  10.       set the locV of sprite mySprite = vert + velocityV
  11.       set velocityH = velocityH + vacSuction
  12.       put the locH of sprite mySprite + velocityH into horz
  13.       set the locH of sprite mySprite = horz
  14.     else
  15.       if the locV of sprite mySprite <> ground then
  16.         mBallSound (me)
  17.         set the locV of sprite mySprite = ground
  18.       else        
  19.         set velocityH = velocityH + vacSuction
  20.         put the locH of sprite mySprite + velocityH into horz
  21.         if horz  <= (the locH of sprite 22) then 
  22.           set the locH of sprite mySprite = horz 
  23.         else
  24.           set the locH of sprite mySprite = the left of sprite 22 
  25.         end if
  26.       end if      
  27.     end if
  28.   else
  29.     set inSuction = FALSE
  30.   end if
  31.   return inSuction
  32. end mTestSuction
  33.  
  34.  
  35.  
  36.